home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 6.2
/
2000-12_-_Disc_6.2.iso
/
Patches
/
age2upa.exe
/
CABFILE
/
FILESUSA.CAB
/
Data
/
gamedata.drs
/
Unnamed File 000041.bina
< prev
next >
Wrap
Text File
|
1999-11-11
|
5KB
|
246 lines
;make sure we have allies
(defrule
(difficulty < easy)
(game-time < 30)
(or
(player-computer any-ally)
(player-human any-ally)
)
=>
(set-goal personality NOTICE)
(disable-self)
)
(defrule
(game-time > 30)
(not (player-in-game any-ally) )
=>
(set-goal personality 0)
(disable-self)
)
(defrule
(taunt-detected any-ally 221)
=>
(set-goal rush-control 3)
(set-goal personality 0)
(acknowledge-taunt this-any-ally 221)
(disable-self)
)
(defrule
(goal personality NOTICE)
=>
(set-goal personality 1)
(chat-to-player-using-id every-ally 22401) ;221
(disable-self)
)
;don't rush if we're a feeder also no wonder
(defrule
(goal personality 1)
(current-age < imperial-age)
(not (goal rush-control FEEDING) )
=>
(set-goal rush-control FEEDING)
)
(defrule
(goal personality 1)
(goal wonder-attempt POSSIBLE)
=>
(set-goal wonder-attempt NO)
)
(defrule
(goal personality 1)
(or
(and
(current-age == feudal-age)
(players-current-age any-ally >= castle-age)
)
(and
(current-age == castle-age)
(players-current-age any-ally == imperial-age)
)
)
=>
(set-goal upgrade-conflict NOTICE)
)
(defrule
(goal personality 1)
(building-type-count market > 0)
(players-population any-ally > 10)
=>
(chat-to-player-using-id every-ally 22072)
(chat-to-player-using-id every-ally 22073)
;"I shall tribute to thee as many resources as I can muster."
;"Go forth and thrash our opponents!"
(disable-self)
)
;stop being a feeder if your allies are weenies
(defrule
(goal personality 1)
(game-time > 900)
(or
(players-population every-ally <= 10)
(not (player-in-game any-ally) )
)
=>
(set-goal personality 20)
(set-goal rush-control 4)
(chat-to-player-using-id every-ally 22074)
;"Whoa, I'll not feed such puny allies! 'Tis every man for himself!"
(disable-self)
)
#load-if-not-defined TEAMS-LOCKED
(defrule
(goal personality 20)
(difficulty <= hard)
(players-stance any-human ally)
=>
(chat-to-player-using-id every-ally 22075)
;"In fact, I'm switching sides! Fare thee well, losers."
(set-stance every-computer ally)
(set-stance this-any-human enemy)
(set-goal personality 10)
(disable-self)
)
#end-if
;***********************
;TRIBUTE
(defrule
(goal personality 1)
(goal 29 NO)
=>
(set-goal 29 YES) ; ok to tribute!
)
(defrule
(goal personality 1)
(or
(goal upgrade-conflict NOTICE)
(town-under-attack)
)
=>
(set-goal 29 NO) ; NOT ok to tribute!
)
(defrule
(goal personality 1)
(goal 29 YES)
(taunt-detected any-ally 4)
(wood-amount > 100)
(not (goal resource-needed WOOD) )
=>
(release-escrow wood)
(tribute-to-player this-any-ally wood 100)
(acknowledge-taunt this-any-ally 4)
(chat-local-to-self "Tribute wood")
)
(defrule
(goal personality 1)
(goal 29 YES)
(taunt-detected any-ally 3)
(food-amount > 100)
(not (goal resource-needed FOOD) )
=>
(release-escrow food)
(tribute-to-player this-any-ally food 100)
(acknowledge-taunt this-any-ally 3)
(chat-local-to-self "Tribute food")
)
(defrule
(goal personality 1)
(goal 29 YES)
(taunt-detected any-ally 5)
(gold-amount > 100)
(not (goal resource-needed GOLD) )
=>
(release-escrow gold)
(tribute-to-player this-any-ally gold 100)
(acknowledge-taunt this-any-ally 5)
(chat-local-to-self "Tribute gold")
)
(defrule
(goal personality 1)
(goal 29 YES)
(taunt-detected any-ally 6)
(stone-amount > 100)
(not (goal resource-needed STONE) )
=>
(release-escrow stone)
(tribute-to-player this-any-ally stone 100)
(acknowledge-taunt this-any-ally 6)
(chat-local-to-self "Tribute stone")
)
(defrule
(goal personality 1)
(goal 29 YES)
(timer-triggered t-tribute)
(player-in-game any-ally)
(wood-amount > 800)
(not (goal resource-needed WOOD) )
=>
(release-escrow wood)
(tribute-to-player this-any-ally wood 100)
(chat-to-player-using-id this-any-ally 22076)
;"Here art some wood!"
(chat-local-to-self "Tribute wood")
)
(defrule
(goal personality 1)
(goal 29 YES)
(timer-triggered t-tribute)
(player-in-game any-ally)
(food-amount > 800)
(not (goal resource-needed FOOD) )
=>
(release-escrow food)
(tribute-to-player this-any-ally food 100)
(chat-to-player-using-id this-any-ally 22077)
;"Here art some food!"
(chat-local-to-self "Tribute food")
)
(defrule
(goal personality 1)
(goal 29 YES)
(timer-triggered t-tribute)
(player-in-game any-ally)
(gold-amount > 800)
(not (goal resource-needed GOLD) )
=>
(release-escrow gold)
(tribute-to-player this-any-ally gold 100)
(chat-to-player-using-id this-any-ally 22078)
;"Here art some gold!"
(chat-local-to-self "Tribute gold")
)
(defrule
(goal personality 1)
(goal 29 YES)
(timer-triggered t-tribute)
(player-in-game any-ally)
(stone-amount > 800)
(not (goal resource-needed STONE) )
=>
(release-escrow stone)
(tribute-to-player this-any-human ally 100)
(chat-to-player-using-id this-any-ally 22079)
;"Here art some stone!"
(chat-local-to-self "Tribute stone")
)